home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / vb4 / pro7 / dialog.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-11-05  |  6.5 KB  |  189 lines
  1. VERSION 2.00
  2. Begin Form Dialog 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Application Dialog"
  5.    ClientHeight    =   4875
  6.    ClientLeft      =   1455
  7.    ClientTop       =   1440
  8.    ClientWidth     =   6225
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   5280
  12.    Left            =   1395
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   4875
  17.    ScaleWidth      =   6225
  18.    Top             =   1095
  19.    Width           =   6345
  20.    Begin Balloon Balloon1 
  21.       BackColor       =   &H0080FFFF&
  22.       ForeColor       =   &H000000FF&
  23.       Left            =   3120
  24.       Top             =   3240
  25.    End
  26.    Begin DriveListBox Drive1 
  27.       Height          =   315
  28.       Left            =   3240
  29.       TabIndex        =   11
  30.       Top             =   2400
  31.       Width           =   2775
  32.    End
  33.    Begin DirListBox Dir1 
  34.       Height          =   930
  35.       Left            =   360
  36.       TabIndex        =   10
  37.       Top             =   3600
  38.       Width           =   2295
  39.    End
  40.    Begin CommandButton Btn_Help 
  41.       Caption         =   "Help Balloons"
  42.       Height          =   375
  43.       Left            =   4320
  44.       TabIndex        =   9
  45.       Top             =   3600
  46.       Width           =   1575
  47.    End
  48.    Begin FileListBox File1 
  49.       Height          =   1005
  50.       Left            =   360
  51.       TabIndex        =   8
  52.       Top             =   2400
  53.       Width           =   2295
  54.    End
  55.    Begin ComboBox Combo1 
  56.       Height          =   300
  57.       Left            =   3240
  58.       TabIndex        =   7
  59.       Text            =   "Combo1"
  60.       Top             =   1800
  61.       Width           =   2775
  62.    End
  63.    Begin TextBox Text2 
  64.       Height          =   495
  65.       Left            =   3240
  66.       TabIndex        =   6
  67.       Text            =   "Text2"
  68.       Top             =   1080
  69.       Width           =   2775
  70.    End
  71.    Begin TextBox Text1 
  72.       Height          =   495
  73.       Left            =   3240
  74.       TabIndex        =   5
  75.       Text            =   "Text1"
  76.       Top             =   360
  77.       Width           =   2775
  78.    End
  79.    Begin Frame Frame1 
  80.       Caption         =   "Frame1"
  81.       Height          =   1935
  82.       Left            =   360
  83.       TabIndex        =   1
  84.       Top             =   240
  85.       Width           =   2295
  86.       Begin OptionButton Option3 
  87.          Caption         =   "Option3"
  88.          Height          =   255
  89.          Left            =   360
  90.          TabIndex        =   4
  91.          Top             =   1440
  92.          Width           =   1455
  93.       End
  94.       Begin OptionButton Option2 
  95.          Caption         =   "Option2"
  96.          Height          =   255
  97.          Left            =   360
  98.          TabIndex        =   3
  99.          Top             =   960
  100.          Width           =   1455
  101.       End
  102.       Begin OptionButton Option1 
  103.          Caption         =   "Option1"
  104.          Height          =   255
  105.          Left            =   360
  106.          TabIndex        =   2
  107.          Top             =   480
  108.          Width           =   1455
  109.       End
  110.    End
  111.    Begin CommandButton BTN_Close 
  112.       Caption         =   "Close"
  113.       Height          =   375
  114.       Left            =   4320
  115.       TabIndex        =   0
  116.       Top             =   4200
  117.       Width           =   1575
  118.    End
  119. Sub Balloon1_BalloonClick (hwndAtMouse As Integer)
  120. ' PURPOSE:  hwndAtMouse is the control the mouse is over
  121. ' COMMENTS: pass back the help text
  122. '           shows how to programmatcially end a session
  123. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  124. Dim Msg As String
  125. Dim CRLF As String
  126.     CRLF = Chr$(13) + Chr$(10)
  127.     Select Case hwndAtMouse
  128.         Case Me.hWnd
  129.             Exit Sub    ' do nothing
  130.         
  131.         Case Btn_Help.hWnd
  132.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Btn_Help."
  133.         
  134.         Case BTN_Close.hWnd
  135.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control BTN_Close."
  136.         
  137.         Case Text1.hWnd
  138.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Text1."
  139.         
  140.         Case Text2.hWnd
  141.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Text2."
  142.         
  143.         Case Combo1.hWnd
  144.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Combo1."
  145.         
  146.         Case File1.hWnd
  147.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control File1."
  148.         
  149.         Case Dir1.hWnd
  150.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Dir1."
  151.             
  152.         Case Drive1.hWnd
  153.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Drive1."
  154.         Case Frame1.hWnd
  155.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Frame1."
  156.         
  157.         Case Option1.hWnd
  158.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Option1."
  159.         
  160.         Case Option2.hWnd
  161.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "  The mouse is over the control Option2."
  162.         
  163.         Case Option3.hWnd
  164.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "  The mouse is over the control Option3."
  165.         Case Else
  166.         
  167.         End Select
  168. End Sub
  169. Sub BTN_Close_Click ()
  170.     Hide
  171. End Sub
  172. Sub Btn_Help_Click ()
  173.     ' initial help text string
  174.     ' here we generate the text internally
  175.     '
  176.     ' Initial text can be left blank, if blank then
  177.     ' Balloon.vbx control will display an internal init message
  178.     Balloon1.MessageText = "Dialog form. Enter the desired parameters. Move mouse over control that you would like help on."
  179.     Balloon1.Action = 20     ' Balloon_START = 20
  180. End Sub
  181. Sub Form_Load ()
  182.     If Me.windowstate = 0 Then
  183.         Me.Top = 0      ' Balloon_Form.Top
  184.         Me.Left = 0     ' Balloon_Form.Left
  185.         Me.Width = 6345
  186.         Me.Height = 5280
  187.     End If
  188. End Sub
  189.